home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / loader.dir / 00008_Script_8 < prev    next >
Text File  |  1983-01-30  |  2KB  |  84 lines
  1. on mouseUp
  2.   
  3.   GLOBAL LISTA_2, TIPO, NOME, MATERIALE, MYWINDOW,DATI_BITMAP,PROGRESSIVE,LIBRO,strada,NOMELIBRO,utente
  4.   global nome_hd
  5.   
  6.   if the machinetype = 256 then
  7.     set strada to nome_hd&":\deamm\invinvit\libri\"
  8.   else
  9.     set strada to nome_hd&":deamm:invinvit:libri:"
  10.   end if
  11.   
  12.   SET NOME =THE TEXT OF CAST 4
  13.   SET LIBRO =THE TEXT OF CAST 6  
  14.   SET NOMELIBRO =THE TEXT OF CAST 6
  15.   set utente to the  text of cast 21
  16.   if tipo ="bitmap" then 
  17.     global mywindow2,LIBRO
  18.     
  19.     SET LL=1
  20.     SET LLL=0
  21.     REPEAT WHILE LL<=the number of lines in FIELD 17 THEN
  22.       IF LIBRO=word 1 of line LL  of  (THE TEXT OF CAST 17) THEN SET LLL=1
  23.       SET LL=LL+1
  24.     END REPEAT
  25.     
  26.     if the machinetype = 256 then
  27.       set pippod to char 1 to 2 of the pathName&"\invenzio\vivid\new.dir"
  28.     else
  29.       set pippod to "invenzioni:invenzio:vivid:new.dir"
  30.     end if
  31.     
  32.     
  33.     
  34.     
  35.     IF LLL=0 THEN 
  36.       -- char 1 to 2 of the pathName&"\invenzio\vivid\vivid04"
  37.       
  38.       set mywindow2 to window pippod
  39.       SET X= pippod
  40.     ELSE
  41.       set mywindow2 to window strada&LIBRO&".dir"
  42.       SET X= strada&LIBRO
  43.       
  44.       global filex,pointerx
  45.       
  46.       set filex=fileio(mnew,"read",strada&LIBRO&".BOK")
  47.       if objectp(filex) then
  48.         set lista_2 to value(filex(mReadFile))
  49.         filex(mdispose)
  50.       else 
  51.         set lista_2 to [:]
  52.       end if
  53.       
  54.       
  55.       
  56.     END IF
  57.     
  58.     
  59.     SET DATI_BITMAP=materiale
  60.     
  61.     TELL  WINDOW  X
  62.       COPY_IT
  63.     END TELL
  64.     
  65.     SET MATERIALE=PROGRESSIVE-1
  66.   END IF
  67.   
  68.   addProp lista_2, #TIPO,"#"&TIPO
  69.   addProp lista_2, #NOME,NOME
  70.   addProp lista_2, #MATERIALE, MATERIALE
  71.   
  72.   
  73.   
  74.   
  75.   global gwriteobject
  76.   PUT FILEIO(MNEW,"WRITE",strada&LIBRO&".BOK") INTO gwriteobject 
  77.   gwriteobject(MWRITESTRING,STRING(LISTA_2))
  78.   gwriteobject(MDISPOSE)
  79.   
  80.   global filename
  81.   set filename to libro
  82.   FORGET MYWINDOW
  83.   
  84. end